home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / PG / CL_STYLE.ZIP / DOSLIB05.CLA < prev    next >
Encoding:
Text File  |  1994-03-13  |  3.2 KB  |  63 lines
  1.                  Member('DOSLIB')
  2. OMIT('╝')
  3. ╔════════════════════════════════════════════════════════════════════════════╗
  4. ║ GetStyleFile - Allows the User to Sprecify a Style File to Edit            ║
  5. ╚════════════════════════════════════════════════════════════════════════════╝
  6.  
  7. !  ┌──────────────────────┐
  8. ! ┌┤Modification History  ├────────────────────────────────────────────────────┐
  9. ! │└──────────────────────┘                                                    │
  10. ! │ Ver. Date           Programmer               Summary of Changes            │
  11. ! ├────────────────────────────────────────────────────────────────────────────┤
  12. ! │                                                                            │
  13. ! │ 1.01 18-Nov-1993    Trevor G. Leybourne      Original Production Version   │
  14. ! │ 1.01    Feb-1994    Trevor G. Leybourne      Added functionality to read   │
  15. ! │                                              the INI for printer details.  │
  16. ! └────────────────────────────────────────────────────────────────────────────┘
  17.  
  18. GetFileDetails   Function(Default:Name,Default:Title,Default:Mask)
  19. FileDetailsName  String(64)
  20. GetFileScreen    SCREEN(7,40),SHADOW,ZOOM,CUA,COLOR(1)
  21.                    !dimensions=25,80,25,80
  22.                    !style=D:\CLARION\CLA_30\CLARION.STY
  23.                    ROW(2,2)    PAINT(1,13),COLOR(112)
  24.                    ROW(2,25)   PAINT(1,14),COLOR(112)
  25.                    ROW(3,2)    PAINT(4,1),COLOR(112)
  26.                    ROW(4,3)    PAINT(1,20),COLOR(112)
  27.                    ROW(4,25)   PAINT(1,14),COLOR(112)
  28.                    ROW(5,3)    PAINT(2,6),COLOR(112)
  29.                    ROW(5,18)   PAINT(2,6),COLOR(112)
  30.                    ROW(5,33)   PAINT(2,6),COLOR(112)
  31.                    ROW(7,1)    STRING('█▄{38}█'),COLOR(3)
  32.                                REPEAT(6)
  33.                    ROW(1,1)      STRING('█'),COLOR(3)
  34.                    ROW(1,40)     STRING('█'),COLOR(3)
  35.                                .
  36. ScreenTitle        ROW(1,2)    STRING(@s38),COLOR(2)
  37.                    ROW(3,3)    ENTRY(@s36),USE(FileDetailsName),UPR,COLOR(8,9,38)
  38.                    ROW(5,9)    BUTTON('   &Ok   |'),SHADOW,KEY(EnterKey),USE(?GetFile:Ok),COLOR(17,18,39,19,20)
  39.                      COL(24)   BUTTON(' &Cancel |'),SHADOW,KEY(EscKey),USE(?GetFile:Cancel),COLOR(17,18,39,19,20)
  40.                  .
  41.  
  42.                  Code
  43.                  Open(GetFileScreen)
  44.                  If ~Omitted(1) then FileDetailsName = Default:Name.
  45.                  If ~Omitted(2) then ScreenTitle     = Center(Default:Title,Size(ScreenTitle)).
  46.  
  47.                  Loop
  48.                    Accept
  49.                    Case Field()
  50.                    Of ?FileDetailsName
  51.                       If Clip(FileDetailsName) = '' then
  52.                          FileDetailsName = Get_FileName(Default:Mask,Default:Title)
  53.                          Select(?FileDetailsName)
  54.                       .
  55.                    Of ?GetFile:Ok
  56.                       Break
  57.                    Of ?GetFile:Cancel
  58.                       Clear(FileDetailsName)
  59.                       Break
  60.                  . .
  61.                  Close(GetFileScreen)
  62.                  Return(FileDetailsName)
  63.